sub samcoupejput(txpo as uinteger, typo as ubyte):
  asm
    ;call $0133
    end asm
  end sub

'$0133 - JPUT - Puts a block of data onto a mode 3 or 4 screen.
